' This file is part of the SunDLL.  The SunDLL is free software: you can
' redistribute it and/or modify it under the terms of the GNU General Public
' License as published by the Free Software Foundation, version 2.
'
' This program is distributed in the hope that it will be useful, but WITHOUT
' ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
' FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
' details.
'
' You should have received a copy of the GNU General Public License along with
' this program; if not, write to the Free Software Foundation, Inc., 51
' Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
'
' Copyright David R. Pratten' Values from Meeus Astro Algor p79 with linear interpolation
tdut(1620) = 121.0
tdut(1621) = 116.5
tdut(1622) = 112.0
tdut(1623) = 107.5
tdut(1624) = 103.0
tdut(1625) = 99.0
tdut(1626) = 95.0
tdut(1627) = 91.5
tdut(1628) = 88.0
tdut(1629) = 85.0
tdut(1630) = 82.0
tdut(1631) = 79.5
tdut(1632) = 77.0
tdut(1633) = 74.5
tdut(1634) = 72.0
tdut(1635) = 70.0
tdut(1636) = 68.0
tdut(1637) = 65.5
tdut(1638) = 63.0
tdut(1639) = 61.5
tdut(1640) = 60.0
tdut(1641) = 58.0
tdut(1642) = 56.0
tdut(1643) = 54.5
tdut(1644) = 53.0
tdut(1645) = 52.0
tdut(1646) = 51.0
tdut(1647) = 49.5
tdut(1648) = 48.0
tdut(1649) = 47.0
tdut(1650) = 46.0
tdut(1651) = 45.0
tdut(1652) = 44.0
tdut(1653) = 43.0
tdut(1654) = 42.0
tdut(1655) = 41.0
tdut(1656) = 40.0
tdut(1657) = 39.0
tdut(1658) = 38.0
tdut(1659) = 36.5
tdut(1660) = 35.0
tdut(1661) = 34.0
tdut(1662) = 33.0
tdut(1663) = 32.0
tdut(1664) = 31.0
tdut(1665) = 30.0
tdut(1666) = 29.0
tdut(1667) = 27.5
tdut(1668) = 26.0
tdut(1669) = 25.0
tdut(1670) = 24.0
tdut(1671) = 23.0
tdut(1672) = 22.0
tdut(1673) = 21.0
tdut(1674) = 20.0
tdut(1675) = 19.0
tdut(1676) = 18.0
tdut(1677) = 17.0
tdut(1678) = 16.0
tdut(1679) = 15.0
tdut(1680) = 14.0
tdut(1681) = 13.0
tdut(1682) = 12.0
tdut(1683) = 11.5
tdut(1684) = 11.0
tdut(1685) = 10.5
tdut(1686) = 10.0
tdut(1687) = 9.5
tdut(1688) = 9.0
tdut(1689) = 8.5
tdut(1690) = 8.0
tdut(1691) = 7.5
tdut(1692) = 7.0
tdut(1693) = 7.0
tdut(1694) = 7.0
tdut(1695) = 7.0
tdut(1696) = 7.0
tdut(1697) = 7.0
tdut(1698) = 7.0
tdut(1699) = 7.0
tdut(1700) = 7.0
tdut(1701) = 7.0
tdut(1702) = 7.0
tdut(1703) = 7.5
tdut(1704) = 8.0
tdut(1705) = 8.0
tdut(1706) = 8.0
tdut(1707) = 8.5
tdut(1708) = 9.0
tdut(1709) = 9.0
tdut(1710) = 9.0
tdut(1711) = 9.0
tdut(1712) = 9.0
tdut(1713) = 9.0
tdut(1714) = 9.0
tdut(1715) = 9.0
tdut(1716) = 9.0
tdut(1717) = 9.5
tdut(1718) = 10.0
tdut(1719) = 10.0
tdut(1720) = 10.0
tdut(1721) = 10.0
tdut(1722) = 10.0
tdut(1723) = 10.0
tdut(1724) = 10.0
tdut(1725) = 10.0
tdut(1726) = 10.0
tdut(1727) = 10.0
tdut(1728) = 10.0
tdut(1729) = 10.0
tdut(1730) = 10.0
tdut(1731) = 10.0
tdut(1732) = 10.0
tdut(1733) = 10.5
tdut(1734) = 11.0
tdut(1735) = 11.0
tdut(1736) = 11.0
tdut(1737) = 11.0
tdut(1738) = 11.0
tdut(1739) = 11.0
tdut(1740) = 11.0
tdut(1741) = 11.0
tdut(1742) = 11.0
tdut(1743) = 11.5
tdut(1744) = 12.0
tdut(1745) = 12.0
tdut(1746) = 12.0
tdut(1747) = 12.0
tdut(1748) = 12.0
tdut(1749) = 12.0
tdut(1750) = 12.0
tdut(1751) = 12.5
tdut(1752) = 13.0
tdut(1753) = 13.0
tdut(1754) = 13.0
tdut(1755) = 13.0
tdut(1756) = 13.0
tdut(1757) = 13.5
tdut(1758) = 14.0
tdut(1759) = 14.0
tdut(1760) = 14.0
tdut(1761) = 14.0
tdut(1762) = 14.0
tdut(1763) = 14.0
tdut(1764) = 14.0
tdut(1765) = 14.5
tdut(1766) = 15.0
tdut(1767) = 15.0
tdut(1768) = 15.0
tdut(1769) = 15.0
tdut(1770) = 15.0
tdut(1771) = 15.0
tdut(1772) = 15.0
tdut(1773) = 15.0
tdut(1774) = 15.0
tdut(1775) = 15.5
tdut(1776) = 16.0
tdut(1777) = 16.0
tdut(1778) = 16.0
tdut(1779) = 16.0
tdut(1780) = 16.0
tdut(1781) = 16.0
tdut(1782) = 16.0
tdut(1783) = 16.0
tdut(1784) = 16.0
tdut(1785) = 16.0
tdut(1786) = 16.0
tdut(1787) = 16.0
tdut(1788) = 16.0
tdut(1789) = 16.0
tdut(1790) = 16.0
tdut(1791) = 15.5
tdut(1792) = 15.0
tdut(1793) = 15.0
tdut(1794) = 15.0
tdut(1795) = 14.5
tdut(1796) = 14.0
tdut(1797) = 13.5
tdut(1798) = 13.0
tdut(1799) = 13.1
tdut(1800) = 13.1
tdut(1801) = 12.8
tdut(1802) = 12.5
tdut(1803) = 12.4
tdut(1804) = 12.2
tdut(1805) = 12.1
tdut(1806) = 12.0
tdut(1807) = 12.0
tdut(1808) = 12.0
tdut(1809) = 12.0
tdut(1810) = 12.0
tdut(1811) = 12.0
tdut(1812) = 12.0
tdut(1813) = 12.0
tdut(1814) = 12.0
tdut(1815) = 12.0
tdut(1816) = 12.0
tdut(1817) = 12.0
tdut(1818) = 11.9
tdut(1819) = 11.8
tdut(1820) = 11.6
tdut(1821) = 11.3
tdut(1822) = 11.0
tdut(1823) = 10.6
tdut(1824) = 10.2
tdut(1825) = 9.7
tdut(1826) = 9.2
tdut(1827) = 8.7
tdut(1828) = 8.2
tdut(1829) = 7.7
tdut(1830) = 7.1
tdut(1831) = 6.7
tdut(1832) = 6.2
tdut(1833) = 5.9
tdut(1834) = 5.6
tdut(1835) = 5.5
tdut(1836) = 5.4
tdut(1837) = 5.4
tdut(1838) = 5.3
tdut(1839) = 5.4
tdut(1840) = 5.4
tdut(1841) = 5.5
tdut(1842) = 5.6
tdut(1843) = 5.8
tdut(1844) = 5.9
tdut(1845) = 6.1
tdut(1846) = 6.2
tdut(1847) = 6.4
tdut(1848) = 6.5
tdut(1849) = 6.7
tdut(1850) = 6.8
tdut(1851) = 7.0
tdut(1852) = 7.1
tdut(1853) = 7.2
tdut(1854) = 7.3
tdut(1855) = 7.4
tdut(1856) = 7.5
tdut(1857) = 7.6
tdut(1858) = 7.6
tdut(1859) = 7.7
tdut(1860) = 7.7
tdut(1861) = 7.5
tdut(1862) = 7.3
tdut(1863) = 6.8
tdut(1864) = 6.2
tdut(1865) = 5.7
tdut(1866) = 5.2
tdut(1867) = 4.0
tdut(1868) = 2.7
tdut(1869) = 2.1
tdut(1870) = 1.4
tdut(1871) = .1
tdut(1872) = -1.2
tdut(1873) = -2.0
tdut(1874) = -2.8
tdut(1875) = -3.3
tdut(1876) = -3.8
tdut(1877) = -4.3
tdut(1878) = -4.8
tdut(1879) = -5.2
tdut(1880) = -5.5
tdut(1881) = -5.4
tdut(1882) = -5.3
tdut(1883) = -5.5
tdut(1884) = -5.6
tdut(1885) = -5.7
tdut(1886) = -5.7
tdut(1887) = -5.8
tdut(1888) = -5.9
tdut(1889) = -6.0
tdut(1890) = -6.0
tdut(1891) = -6.2
tdut(1892) = -6.3
tdut(1893) = -6.4
tdut(1894) = -6.5
tdut(1895) = -6.4
tdut(1896) = -6.2
tdut(1897) = -5.5
tdut(1898) = -4.7
tdut(1899) = -3.8
tdut(1900) = -2.8
tdut(1901) = -1.5
tdut(1902) = -.1
tdut(1903) = 1.3
tdut(1904) = 2.6
tdut(1905) = 4.0
tdut(1906) = 5.3
tdut(1907) = 6.5
tdut(1908) = 7.7
tdut(1909) = 9.1
tdut(1910) = 10.4
tdut(1911) = 11.9
tdut(1912) = 13.3
tdut(1913) = 14.7
tdut(1914) = 16.0
tdut(1915) = 17.1
tdut(1916) = 18.2
tdut(1917) = 19.2
tdut(1918) = 20.2
tdut(1919) = 20.7
tdut(1920) = 21.1
tdut(1921) = 21.8
tdut(1922) = 22.4
tdut(1923) = 23.0
tdut(1924) = 23.5
tdut(1925) = 23.7
tdut(1926) = 23.8
tdut(1927) = 24.1
tdut(1928) = 24.3
tdut(1929) = 24.2
tdut(1930) = 24.0
tdut(1931) = 24.0
tdut(1932) = 23.9
tdut(1933) = 23.9
tdut(1934) = 23.9
tdut(1935) = 23.8
tdut(1936) = 23.7
tdut(1937) = 23.9
tdut(1938) = 24.0
tdut(1939) = 24.2
tdut(1940) = 24.3
tdut(1941) = 24.8
tdut(1942) = 25.3
tdut(1943) = 25.8
tdut(1944) = 26.2
tdut(1945) = 26.8
tdut(1946) = 27.3
tdut(1947) = 27.8
tdut(1948) = 28.2
tdut(1949) = 28.7
tdut(1950) = 29.1
tdut(1951) = 29.6
tdut(1952) = 30.0
tdut(1953) = 30.4
tdut(1954) = 30.7
tdut(1955) = 31.1
tdut(1956) = 31.4
tdut(1957) = 31.8
tdut(1958) = 32.2
tdut(1959) = 32.7
tdut(1960) = 33.1
tdut(1961) = 33.6
tdut(1962) = 34.0
tdut(1963) = 34.5
tdut(1964) = 35.0
tdut(1965) = 35.8
tdut(1966) = 36.5
tdut(1967) = 37.4
tdut(1968) = 38.3
tdut(1969) = 39.3
tdut(1970) = 40.2
tdut(1971) = 41.2
tdut(1972) = 42.2
tdut(1973) = 43.4
tdut(1974) = 44.5
tdut(1975) = 45.5
tdut(1976) = 46.5
tdut(1977) = 47.5
tdut(1978) = 48.5
tdut(1979) = 49.5
tdut(1980) = 50.5
tdut(1981) = 51.4
tdut(1982) = 52.2
tdut(1983) = 53.0
tdut(1984) = 53.8
tdut(1985) = 54.4
tdut(1986) = 54.9
tdut(1987) = 55.4
tdut(1988) = 55.8
tdut(1989) = 56.4
tdut(1990) = 56.9
tdut(1991) = 57.6
tdut(1992) = 58.3
tdut(1993) = 59.2
tdut(1994) = 60.0
tdut(1995) = 60.8
tdut(1996) = 61.6
tdut(1997) = 62.3 ' See also ftp://maia.usno.navy.mil/ser7/ser7.dat
tdut(1998) = 63.0
tdut(1999) = 63.3 ' My estimate
tdut(2000) = 63.7 ' My estimate
tdut(2001) = 64.187 ' from http://hpiers.obspm.fr/eoppc/bul/bulc/UTC-TAI.history +32.187
tdut(2002) = 64.187
tdut(2003) = 64.187
tdut(2004) = 64.187
tdut(2005) = 64.187
tdut(2006) = 65.187 'ie 33sec plus 32.187
' if the last entry here is bigger than %uts_tdutend then it is dead meat! and will crash.



                 